home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_100_add myLinearList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  383 b   |  12 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vAddValue to the text of member "Adding Linear Add Input Field 1"
  5.   set vAddValue to stripSpaces(vAddValue)
  6.   set vAddValue to checkValue(vAddValue)
  7.   if vAddValue <> EMPTY then
  8.     add(gDefaultLinearList, vAddValue)
  9.     set the text of member "Adding Linear Add Display Field 1" to string(gDefaultLinearList)
  10.   end if
  11. end
  12.